home *** CD-ROM | disk | FTP | other *** search
/ Reverse Code Engineering RCE CD +sandman 2000 / ReverseCodeEngineeringRceCdsandman2000.iso / RCE / Svd Messageboard Arcive / ephemery / data / MBPREP.ZIP / TREE2MSB.PL < prev    next >
Encoding:
Text File  |  1999-02-02  |  1.4 KB  |  48 lines
  1. $TREEN= $ARGV[0] ne '' ? $ARGV[0] : die "need tree-file-name";
  2. $MB = $ARGV[0];
  3. $MB =~ s/\.tre$//i;
  4. $OUT = ">$MB.htm";
  5. print "<$TREEN   $OUT\n";
  6.  
  7. open(OUT) || die "can't open $OUT";
  8.  
  9. $IN = "$MB.hdr";
  10. open IN || die "can't open $IN";
  11. while (<IN>) { print OUT; }
  12. close IN;
  13. #(@tm) = gmtime(); $tm[4]++; $tm[5]+=1900; # $tm[3].$tm[4].$tm[5]
  14. print OUT "<center>rebuilt</center>\n";
  15.  
  16. $IN = $TREEN;
  17. open IN || die "can't open $IN";
  18.  
  19. $lvlprev=0;
  20. while (<IN>) { chop;
  21.    ($lvl,$mail,$name,$mssg,$subj,$date) = split( "\f");
  22.  
  23. print OUT "<ul>"  x ($lvl-$lvlprev) if ($lvl>$lvlprev);
  24. print OUT "</ul>" x ($lvlprev-$lvl) if ($lvlprev>$lvl);
  25. print OUT "\n<hr size=0> " if !$lvl;              #main msg only
  26. #print OUT "<TABLE WIDTH=100%><TR><TD>" if !$lvl;  #main msg only
  27. print OUT "<A HREF=\"mailto:$mail\">" if $mail ne '';
  28. print OUT "<font size=\"-1\">$name</font>";   # face=\"arial,helvetica\"
  29. print OUT "</A>" if $mail ne '';
  30. $mssg =~ s/\.9$/\.HTM/;    #files named *.9 are NOT recognised as HTML. why?
  31. #$mssg = "data/".$mssg;
  32. print OUT ": <A HREF=\"$mssg\">";
  33. print OUT "<FONT SIZE=\"-1\">" if $lvl;         #smaller font on submesssages
  34. print OUT $lvl ? "$subj" : "<B>$subj</B>";
  35. print OUT "</FONT>" if $lvl;
  36. print OUT "</A><FONT SIZE=\"-2\"> $date</FONT>";
  37. print OUT "<BR>";
  38. #print OUT "</TD></TR></TABLE>" if !$lvl;        #main msg only
  39. print OUT "\n";
  40.  
  41.    $lvlprev = $lvl;
  42. }
  43. close IN;
  44.  
  45. print OUT "</body></html>\n";  #epilogue
  46.  
  47. #SvD 01'99
  48.